home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / programme / imagedesk304 / imagedesk / instdata.lha / instdata / rexx / Default.DeletePic.IDesk < prev    next >
Text File  |  1996-03-03  |  877b  |  38 lines
  1. /* ARexx-Skript for Image Desk   */
  2. /* Version 1.1 vom 02.03.96      */
  3. /* Wuensche und anregungen an :  */
  4. /* BerndW@trashcan.mcnet.de      */
  5.  
  6. /* Das Skript loescht das Bild im Catalog und das Bild   */
  7. /* selbst, ohne sicherheitsabfrage, AB VERSION 3.00      */
  8.  
  9. /* Funktioniert nur vom Desk mit Aktuellen Catalog !!    */
  10. /* Nach dem Loeschen muss der Katalog jedoch noch gesichert werden */
  11.  
  12. OPTIONS RESULTS
  13. PARSE ARG iname itype ipos
  14.  
  15. ADDRESS IDESK_REXXPORT
  16. GETSYSINFO CATNAME
  17. catalog = result
  18.  
  19. /* loeschen des eintrages im Catalog */
  20. /* name holen */
  21. IF LASTPOS("/",iname) ~= 0 THEN DO
  22.     bname = right(iname,(LENGTH(iname)-LASTPOS("/",iname)))
  23. end
  24. ELSE DO
  25.     bname = right(iname,(LENGTH(iname)-LASTPOS(":",iname)))
  26. END
  27.  
  28. GETBUFPOS '"'bname'"'
  29. posi = result
  30. REMFROMBUF '"'posi'"'
  31. REDRAW
  32.  
  33. /* loeschen des Bildes */
  34. ADDRESS COMMAND
  35. C:DELETE '"'iname'"'
  36. ADDRESS IDESK_REXXPORT
  37.  
  38.